06-11 ChartGoToXRangemd
Chart_GoToXRange.md​
Public Sub Chart_GoToXRange()
If TypeName(Selection) = "Series" Then
Dim b As New bUTLChartSeries
b.UpdateFromChartSeries Selection
b.XValues.Parent.Activate
b.XValues.Activate
Else
MsgBox "Select a series in order to use this."
End If
End Sub